Private Sub Sort(ByVal A() As Integer)
        Dim i, j, t As Integer
        For i = LBound(A) To UBound(A) - 1
            For j = i + 1 To UBound(A)
                If A(i) > A(j) Then
                    t = A(i) : A(i) = A(j) : A(j) = t
                End If
            Next
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, n, A() As Integer        '嶯̬
        Label1.Text = ""
        n = Val(InputBox("Ԫصĸ", "ð", 0))
        ReDim A(n)
        For i = 1 To n
            A(i) = Int(Rnd() * 90) + 10
            Label1.Text &= A(i) & " "
        Next
        Label1.Text &= Chr(10)
        Sort(A)
        For i = 1 To n
            Label1.Text &= A(i) & " "
        Next
    End Sub
